home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Magazine / UltimateWB / Executive / UnInstall.Executive < prev   
Text File  |  1997-02-23  |  12KB  |  320 lines
  1. ;
  2. ; Executive UnInstallation script
  3. ;
  4. ; Copyright © 1995-97 Petri Nordlund. All rights reserved.
  5. ;
  6. ; $Id: UnInstall.Executive 1.12 1996/10/24 11:56:01 petrin Exp petrin $
  7. ;
  8.  
  9.  
  10. ; =======================================================================
  11. ;   Set up some variables
  12. ; =======================================================================
  13.  
  14. (set TRUE        1)
  15. (set FALSE        0)
  16.  
  17. ; =======================================================================
  18. ;   Set up localized strings
  19. ; =======================================================================
  20.  
  21. ; ==== Ask users language
  22. (set sel_lang
  23.     (askchoice
  24.         (prompt "Please select your language")
  25.         (help @askoptions-help)
  26.         (choices
  27.             "English"
  28.             "Suomi"
  29.             "Français"
  30.             "Deutsch"
  31. ;            "Norsk"
  32.             "Nederlands"
  33.             "Svenska"
  34. ;            "Dansk"
  35. ;            "Español"
  36. ;            "Italiano"
  37. ;            "Português"
  38.             "Polski"
  39.             "ãeÓtina"
  40.         )
  41.         (default 0)
  42.     )
  43. )
  44.  
  45. (set @language
  46.     (select sel_lang
  47.         "English"
  48.         "Suomi"
  49.         "Français"
  50.         "Deutsch"
  51. ;        "Norsk"
  52.         "Nederlands"
  53.         "Svenska"
  54. ;        "Dansk"
  55. ;        "Español"
  56. ;        "Italiano"
  57. ;        "Português"
  58.         "Polski"
  59.         "ãeÓtina"
  60.             ""
  61.     )
  62. )
  63.  
  64.  
  65. ;
  66. ; ===== English
  67. ;
  68. (set #please_close "\nThis program will DELETE Executive from your harddisk. All files that belong to Executive will be deleted. Other files won't be touched.\n\n\nPLEASE CLOSE THE EXECUTIVE DIRECTORY WINDOW IN WORKBENCH SCREEN SO THE DIRECTORY CAN BE DELETED.")
  69. (set #savekey "\nDo you want to copy your personal keyfile to S: directory, so it will be saved for the time when you reinstall Executive? Executive will find the key from S: directory.")
  70. (set #yes "Yes, copy key to S:")
  71. (set #no "No, delete the key")
  72. (set #userstartup "; Executive has been uninstalled.")
  73. (set #rempath "\nA `Path'-command in your \"S:User-Startup\" file will now be removed.")
  74. (set #remhelp "When you installed Executive, the installation script added some commands to your \"S:User-Startup\" file. These commands will now be removed.")
  75. (set #done "\nExecutive has been uninstalled successfully.")
  76.  
  77. ;
  78. ; ===== Suomi
  79. ;
  80. (if (OR (= @language "Suomi") (= @language "suomi"))
  81. (
  82. (set #please_close "\nTämä ohjelma POISTAA Executiven kovalevyltäsi. Kaikki Executiveen kuuluvat tiedostot tuhotaan. Muihin tiedostoihin ei kosketa.\n\n\nSULJE WORKBENCH-RUUDULLA AVOINNA OLEVA EXECUTIVEN HAKEMISTO-IKKUNA, MUUTOIN HAKEMISTOA EI VOI POISTAA.")
  83. (set #savekey "\nHaluatko kopioida henkilökohtaisen suojausavaimesi S: hakemistoon, josta Executive löytää sen jos asennat Executiven uudelleen?")
  84. (set #yes "Kyllä")
  85. (set #no "En")
  86. (set #userstartup "; Executive on poistettu.")
  87. (set #rempath "\n`Path´-komento \"S:User-Startup\" tiedostossa poistetaan.")
  88. (set #remhelp "Kun asensit Executiven, asennusohjelma lisäsi muutamia komentoja \"S:User-Startup\" tiedostoon. Nämä komennot poistetaan.")
  89. (set #done "\nExecutive on onnistuneesti poistettu koneestasi.")
  90. )) ; end of if statement
  91.  
  92. ;
  93. ; ===== Français
  94. ;
  95. (if (OR (= @language "Français") (= @language "français"))
  96. (
  97. (set #please_close "\nCe programme EFFACERA Executive de votre disque dur. Tous les fichiers appartenant à Executive seront effacés. Les autres fichiers resteront intacts.\n\n\nVEUILLER FERMER LA FENETRE REPERTOIRE EXECUTIVE DANS L'ECRAN WORKBENCH POUR QUE LE REPERTOIRE PUISSE ETRE EFFACE.")
  98. (set #savekey "\nVoulez vous que votre clé personnelle soit copiée dans le répertoire S:, pour qu'elle soit sauvée pour le moment où vous réinstallerez Executive ? Executive trouvera la clé dans le répertoire S:.")
  99. (set #yes "Oui, copie de la clé dans S:")
  100. (set #no "Non, effacement de la clé")
  101. (set #userstartup "; Executive a été désinstallé.")
  102. (set #rempath "\nUne commande `Path' dans votre fichier \"S:User-Startup\" va maintenant être enlevée.")
  103. (set #remhelp "Quand vous avez installé Executive, le script d'installation a ajouté quelques commandes dans votre fichier \"S:User-Startup\". Ces commandes vont maintenant être enlevées.")
  104. (set #done "\nExecutive a été désinstallé avec succès.")
  105. )) ; end of if statement
  106.  
  107. ;
  108. ; ===== Deutsch
  109. ;
  110. (if (OR (= @language "Deutsch") (= @language "deutsch"))
  111. (
  112. (set #please_close "\nDieses Programm entfernt Executive aus Ihrem System. Alle Dateien die zu Executive gehören werden entfernt, andere Dateien sind nicht betroffen.\n\n\nBITTE SCHLIEßEN SIE DAS EXECUTIVE VERZEICHNISFENTER AUF DER WORKBENCH - SONST KANN ES NICHT GELÖSCHT WERDEN.")
  113. (set #savekey "\nMöchten Sie Ihr Keyfile nach S: kopieren, damit es nicht verloren ist falls Sie Executive wieder installieren möchten ?")
  114. (set #yes "Ja, Keyfile kopieren")
  115. (set #no "Nein, Keyfile löschen")
  116. (set #userstartup "; Executive has been uninstalled.")
  117. (set #rempath "\nDer `Path'-Befehl in Ihrer \"S:User-Startup\" wird nun entfernt")
  118. (set #remhelp "Als Sie Executive installiert haben, hat das Installationsskript ein paar Befehle zu Ihrer \"S:User-Startup\" hinzugefügt. Diese Befehle werden jetzt wieder entfernt.")
  119. (set #done "\nExecutive wurde komplett entfernt.")
  120. )) ; end of if statement
  121.  
  122. ;
  123. ; ===== Norsk
  124. ;
  125. ;(if (OR (= @language "Norsk") (= @language "norsk"))
  126. ;(
  127. ;)) ; end of if statement
  128.  
  129. ;
  130. ; ===== Nederlands
  131. ;
  132. (if (OR (= @language "Nederlands") (= @language "nederlands"))
  133. (
  134. (set #please_close "\nDit programma zal Executive van uw harddisk verwijderen. Alle bestanden die behoren tot Executive zullen worden verwijderd. Andere bestanden zullen met rust worden gelaten.\n\n\nSLUIT U ALSTUBLIEFT DE EXECUTIVE LADE IN UW WORKBENCH ZODAT EXECUTIVE KAN WORDEN VERWIJDERD.")
  135. (set #savekey "\nWilt u uw persoonlijke keyfile naar de S: lade gekopieërd hebben, zodat deze kan worden bewaard voor het geval dat u Executive opnieuw wilt installeren? Executive zal deze keyfile ook vinden vanuit de S: lade.")
  136. (set #yes "Ja, kopieër key naar S:")
  137. (set #userstartup "; Executive is verwijderd.")
  138. (set #rempath "\nEen `Path'-commando in uw \"S:User-Startup\" bestand zal nu worden verwijderd.")
  139. (set #remhelp "Toen u Executive geïnstalleerd heeft, heeft het installatie script enkele commando's toegevoegd aan uw \"S:User-Startup\" bestand. Deze commando's zullen nu verwijderd worden.")
  140. (set #done "\nExecutive is succesvol verwijderd.")
  141. )) ; end of if statement
  142.  
  143. ;
  144. ; ===== Svenska
  145. ;
  146. (if (OR (= @language "Svenska") (= @language "svenska"))
  147. (
  148. (set #please_close "\nDet här programmet kommer att TA BORT Executive från din hårddisk. Alla filer som tillhör Executive raderas. Andra filer lämnas orörda.\n\n\nSTÄNG EXECUTIVE-FÖNSTRET PÅ WORKBENCHSKÄRMEN SÅ ATT LÅDAN KAN RADERAS.")
  149. (set #savekey "\nVill du kopiera din personliga nyckelfil till S:-lådan, så att den sparas tills du åter installerar Executive? Executive hittar filen i S:-lådan.")
  150. (set #yes "Ja, kopiera nyckeln till S:")
  151. (set #no "Nej, radera nyckeln")
  152. (set #userstartup "; Executive har avinstallerats.")
  153. (set #rempath "\n`Path'-kommandot i din \"S:User-Startup\"-fil kommer nu att tas bort.")
  154. (set #remhelp "När du installerade Executive så adderade installationsskriptet några kommandon till \"S:User-Startup\"-filen. Dessa kommandon tas nu bort.")
  155. (set #done "\nExecutive har avinstallerats.")
  156. )) ; end of if statement
  157.  
  158. ;
  159. ; ===== Dansk
  160. ;
  161. ;(if (OR (= @language "Dansk") (= @language "dansk"))
  162. ;(
  163. ;)) ; end of if statement
  164.  
  165. ;
  166. ; ===== Español
  167. ;
  168. ;(if (OR (= @language "Español") (= @language "español"))
  169. ;(
  170. ;)) ; end of if statement
  171.  
  172. ;
  173. ; ===== Italiano
  174. ;
  175. ;(if (OR (= @language "Italiano") (= @language "italiano"))
  176. ;(
  177. ;)) ; end of if statement
  178.  
  179. ;
  180. ; ===== Português
  181. ;
  182. ;(if (OR (= @language "Português") (= @language "português"))
  183. ;(
  184. ;)) ; end of if statement
  185.  
  186. ;
  187. ; ===== Polski
  188. ;
  189. (if (OR (= @language "Polski") (= @language "polski"))
  190. (
  191. (set #please_close "\nTen program USUNIE Executiva z Twojego dysku. Wszystkie pliki naleûâce do pakietu zostanâ skasowane. Pozostaîe pliki nie pozostanâ nienaruszone.\n\nPROSZË ZAMKNIJ OKNO KATALOGU EXECUTIVE NA EKRANIE WORKBENCHA, TAK ZEBY TEN KATALOG MÓGΠZOSTAÊ SKASOWANY.")
  192. (set #savekey "\nCzy chcesz skopiowaê swój plik kodowy do katalogu S:, tak ûeby byî dostëpny gdy znów zainstalujesz Executiva? Program znajdzie ten plik w katalogu S:")
  193. (set #yes "Tak, skopiuj do S:")
  194. (set #no "Nie, skasuj")
  195. (set #userstartup "; Executive zostaî usuniëty.")
  196. (set #rempath "\nPolecenie `Path' zostanie usuniëte teraz usuniëte z pliku \"S:User-Startup\".")
  197. (set #remhelp "When you installed Executive, the installation script added some commands to your \"S:User-Startup\" file. These commands will now be removed.")
  198. (set #done "\nExecutiva zostaî pomyôlnie usuniëty.")
  199. )) ; end of if statement
  200.  
  201. ;
  202. ; ===== ãeÓtina
  203. ;
  204. (if (OR (= @language "ãeÓtina") (= @language "ÃeÓtina"))
  205. (
  206. (set #please_close "\nPomocÉ tohoto programu SMAúETE Executive z VaÓeho harddisku. Budou smazÁny tak× vÓechny soubory nÁleÚÉcÉ k Executive. úÁdn× jin× soubory NEBUDOU smazÁny.\n\n\nPROSéM ZAVòETE ADRESáò S PROGRAMEM EXECUTIVE POKUD JE OTEVòEN NA WB, ABY MOHL BùT PROGRAM SMAZáN.")
  207. (set #savekey "\nPÒejete si uschovat VÁÓ osobnÉ klÉàv adresÁÒi S: ? Pokud se rozhodnete Executive znovu nainstalovat, program jej pÒi nov× instalaci bude hledat prÁvÅ tam.")
  208. (set #yes "Ano, uschovat do S:")
  209. (set #no "Ne, smazat klÉÃ")
  210. (set #userstartup "; Executive byl odinstalovÁn.")
  211. (set #rempath "\nPÒÉkaz `Path' pro Executive ve VaÓÉ \"S:User-Startup\" bude nynÉ odstranÅn.")
  212. (set #remhelp "KdyÚ byl Executive instalovÁn, instalaÃnÉ skript pÒidal nÅkolik pÒÉkazÊ do VaÓÉ \"S:User-Startup\". Tyto pÒÉkazy budou nynÉ odstranÅny.")
  213. (set #done "\nExecutive byl odinstalovÁn ÕspÅÓnÅ.")
  214. )) ; end of if statement
  215.  
  216.  
  217. ; =======================================================================
  218. ;   Initialization
  219. ; =======================================================================
  220.  
  221. ; Logfile is written to RAM:
  222. (set @default-dest "RAM:")
  223.  
  224.  
  225. ; change userlevel to expert
  226. (procedure expert_level
  227.     ((user 2))
  228. )
  229. ; reset userlevel back to default
  230. (procedure default_level
  231.     ((user default-level))
  232. )
  233. ; store off userlevel
  234. (procedure save_default_level
  235.     ((set default-level @user-level))
  236. )
  237.  
  238. (save_default_level)
  239. (expert_level)
  240.  
  241. ; =======================================================================
  242. ;   Uninstall
  243. ; =======================================================================
  244.  
  245. (complete 0)
  246.  
  247. (message #please_close)
  248.  
  249. (run "ExDest:Executive/Executive QUIT")
  250.  
  251. (if (exists ("ExDest:Executive/Executive.key") (noreq))
  252. (
  253.     (if (askbool
  254.         (prompt #savekey)
  255.         (help @askbool-help)
  256.         (default 0)
  257.         (choices #yes #no))
  258.         (
  259.             ; copy key
  260.             (run "copy ExDest:Executive/Executive.key S:")
  261.         )
  262.     )
  263. )) ; end of if statement
  264.  
  265. (complete 50)
  266.  
  267. (run "Delete ExDest:Executive ALL FORCE QUIET")
  268. (run "Delete ExDest:Executive.info FORCE QUIET")
  269. (run "Delete S:Executive.prefs QUIET")
  270. (run "Delete ENV:Executive.prefs QUIET")
  271. (run "Delete ENVARC:Executive.prefs QUIET")
  272. (run "Delete LIBS:SysInfo.library FORCE QUIET")
  273. (if (exists "LOCALE:" (noreq))
  274. (
  275.     (run "Delete LOCALE:Catalogs/Suomi/Executive.catalog")
  276.     (run "Delete LOCALE:Catalogs/Français/Executive.catalog")
  277.     (run "Delete LOCALE:Catalogs/Deutsch/Executive.catalog")
  278.     (run "Delete LOCALE:Catalogs/Norsk/Executive.catalog")
  279.     (run "Delete LOCALE:Catalogs/Nederlands/Executive.catalog")
  280.     (run "Delete LOCALE:Catalogs/Svenska/Executive.catalog")
  281.     (run "Delete LOCALE:Catalogs/Dansk/Executive.catalog")
  282.     (run "Delete LOCALE:Catalogs/Español/Executive.catalog")
  283.     (run "Delete LOCALE:Catalogs/Italiano/Executive.catalog")
  284.     (run "Delete LOCALE:Catalogs/Português/Executive.catalog")
  285.     (run "Delete LOCALE:Catalogs/Polski/Executive.catalog")
  286.  
  287.     (run "Delete LOCALE:Catalogs/Suomi/Dashboard.catalog")
  288.     (run "Delete LOCALE:Catalogs/Français/Dashboard.catalog")
  289. ;    (run "Delete LOCALE:Catalogs/Deutsch/Dashboard.catalog")
  290.     (run "Delete LOCALE:Catalogs/Norsk/Dashboard.catalog")
  291. ;    (run "Delete LOCALE:Catalogs/Nederlands/Dashboard.catalog")
  292.     (run "Delete LOCALE:Catalogs/Svenska/Dashboard.catalog")
  293. ;    (run "Delete LOCALE:Catalogs/Dansk/Dashboard.catalog")
  294. ;    (run "Delete LOCALE:Catalogs/Español/Dashboard.catalog")
  295. ;    (run "Delete LOCALE:Catalogs/Italiano/Dashboard.catalog")
  296. ;    (run "Delete LOCALE:Catalogs/Português/Dashboard.catalog")
  297. ;    (run "Delete LOCALE:Catalogs/Polski/Dashboard.catalog")
  298. )) ; end of if statement
  299.  
  300. (complete 90)
  301.  
  302. (default_level)
  303.  
  304. ; ===== Remove path-command from s:user-startup
  305. (startup "Executive"
  306.     (prompt (#rempath))
  307.     (help #remhelp)
  308.     (command #userstartup)
  309. )
  310.  
  311. (complete 100)
  312.  
  313. (makeassign "ExDest" (safe))
  314.  
  315. (expert_level)
  316.  
  317. (message #done)
  318.  
  319. (exit (quiet))
  320.